(compilation-start): Set EMACS and INSIDE_EMACS to t.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 15346be53c739588a18372958909177ddf8981aa..cc1fe1ef8278dec2824e1a4af6dbcd45b120aeab 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1069,7 +1069,8 @@ Returns the compilation buffer created."
              ;; Set the EMACS variable, but
              ;; don't override users' setting of $EMACS.
              (unless (getenv "EMACS")
-               (list (concat "EMACS=" invocation-directory invocation-name)))
+               (list "EMACS=t"))
+             (list "INSIDE_EMACS=t")
              (copy-sequence process-environment))))
        (set (make-local-variable 'compilation-arguments)
             (list command mode name-function highlight-regexp))